﻿<%
Class plistAction
	
	'构造
	Private Sub Class_Initialize()
		'''使用内置类
		Sa.Use("Pager")
		Pager.PageVar = "p"
		Pager.PageSize = 15
		Call Pager.Set("first", "<a href=""{url}"">首页</a>")
		Call Pager.Set("prev", "<a href=""{url}"">上一页</a>")
		Call Pager.Set("next", "<a href=""{url}"">下一页</a>")
		Call Pager.Set("last", "<a href=""{url}"">尾页</a>")
		Call Pager.Set("nmod", "<span>{page}&nbsp;</span>")
		Call Pager.Set("amod", "<a href=""{url}"">{page}</a>")
		Pager.Model = "{first}"&vbcrlf&"{prev}"&vbcrlf&"{list}"&vbcrlf&"{next}"&vbcrlf&"{last}"&vbcrlf&"跳转到&nbsp;"&vbcrlf&"{jump}&nbsp;页"&vbcrlf&"{button}"
	End Sub
	
	'析构
	Private Sub Class_Terminate()
	End Sub
	
	'''测试继承私有函数传值
	Private Function priFun_()
		priFun_ = "这是在plistAction中的一个私有函数下的返回值"
	End Function
	
	'''测试继承Dim预定义
	Public Sub ExtDim()
		Sa.Dim("pextdim")
		pextdim = "这是在plistAction中的一个预定义字符串,要直接生效应该要加入Class_Initialize的吧,要测试"
		Sa.Dim("pextname")
		Dim c1,c2,c3
		c1 = "陈cfz"
		c2 = "峰cfz"
		c3 = "展cfz"
		pextname = "我的名字叫：" & c1 & c2 & c3
		Sa.Dim("pextshw")
		pextshw = "而且这个例如还使用了T-p-l..Show来显示默认模板EXT(在plistAction中)"
		Sa.Dim("pextpri")
		pextpri = priFun_()
	End Sub
	
	'''使用语言包输出
	Public Sub ExtLang()
		Sa.Dim("pextlang")
		pextlang = "plistAction中我需要一个字符串,但它是语言包定义的,要这样用？" & L_now
	End Sub
	
	'''dimselect列表
	Public Sub dimlist()
		Sa.Dim("namex|5")
		namex(0) = "George"
		namex(1) = "John"
		namex(2) = "Thomas"
		namex(3) = "陈峰展"
		namex(4) = "梁燕萍"
		namex(5) = "闽南师范大学"
	End Sub
	
	'''多维数组
	Public Sub dwlist()
		Sa.Dim("tname|3|2")
		tname(0,0) = "0X0"
		tname(0,1) = "0X1"
		tname(0,2) = "0X2"
		tname(1,0) = "1X0"
		tname(1,1) = "1X1"
		tname(1,2) = "1X2"
		tname(2,0) = "2X0"
		tname(2,1) = "2X1"
		tname(2,2) = "2X2"
		tname(3,0) = "3X0"
		tname(3,1) = "3X1"
		tname(3,2) = "3X2"
		Sa.Show
	End Sub
	
	'''测试多语
	Public Sub lang()
		Sa.Show()
	End Sub
	
	'''输出带分页select列表
	Public Sub pagelist()
		Sa.Show()
	End Sub
	
	Public Sub ajax()
		Response.Write("abcdefg_ajax")
		Response.Write("这是直接输出的碗糕")
		Response.Write("GET变量k:")
		Response.Write(G("k"))
	End Sub
End Class
%>